www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\admin\drumbeating\drumbeating_Manage.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../../" '相对当前应用程序根的位置
%>
<!-- #include file ="../include/checkPurview.asp"-->
<!--#include file="../../ConnDB.asp"-->
<!-- #include file="../include/Function.Manage.Config.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>广告管理</title>
<link rel="stylesheet" type="text/css" href="../themes/base.css"/>
<link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" />
</head>
<body id="bodyBg1">
<br />
<a href="drumbeating_Manage.asp">广告管理</a> | <a href="drumbeating_add.asp">广告添加</a>
<hr class="Nav-hr" />
<br />
<dl class="manageContent">
<dt>广告管理</dt>
<dd>
<br />
<%
Sql_Advert="Select * from deep_Advertisement order by forderID,fid"
Set RsAdvertManage=conn.execute(Sql_Advert)
if RsAdvertManage.Eof and RsAdvertManage.Bof then
Response.Write("<p>暂时没有广告！！！</p>")
else
n=1
%>
<table width="100%" class="tableBoder01">
<tr>
<th width="30" >序号</th>
<th>广告位置</th>
<th>广告名称</th>
<th width="30" >id号</th>
<th width="55" >广告类型</th>
<th width="55" >是否显示</th>
<th width="70" >管 理</th>
<th width="110" >广 告 效 果</th>
</tr>
<%while (Not RsAdvertManage.Eof) %>
<tr>
<td ><%=n%></td>
<td ><%=RsAdvertManage("fplace")%></td>
<td ><%=RsAdvertManage("fAdvertName")%></td>
<td ><%=RsAdvertManage("fid")%></td>
<td ><%' 0程序代码 1图片 2flash 3弹窗 4浮动
select case RsAdvertManage("fADType")
case 0
response.Write("程序代码")
case 1
response.Write("图片")
case 2
response.Write("flash")
case 3
response.Write("弹窗")
case 4
response.Write("浮动")
end select
%></td>
<td ><%if RsAdvertManage("fIsView")=0 then response.Write("未显示") end if%></td>
<td ><a href="drumbeating_Update.asp?ID=<%=RsAdvertManage("fID")%>">修改</a><%if RsAdvertManage("fIsSys")=0 then%> | <a href="drumbeating_DEL.asp?ID=<%=RsAdvertManage("fID")%>" onclick="return confirm('删除后将不能恢复，你确定删除么？')">删除</a>
<%else%><font color="#CCCCCC"> | 删除</font><%end if%></td>
<td ><a href="drumbeating_view.asp?id=<%=RsAdvertManage("fID")%>" target="_blank">点击查看广告效果</a></td>
</tr>
<%
n=n+1
RsAdvertManage.MoveNext
wend
%>
</table>
<%
end if
RsAdvertManage.close
Set RsAdvertManage =Nothing
Call CloseConnDB()
%>
<br />
</dd>
</dl>
<br />
</body>
</html>